home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD Fun House 1
/
CD Fun House (Wayzata Technology).iso
/
•AdventureLand•
/
Adventures
/
HyperQuest 1.03 •••
/
HyperQuest 1.03 еее
/
card_7465.txt
< prev
next >
Wrap
Text File
|
1990-10-02
|
9KB
|
429 lines
-- card: 7465 from stack: in.03 –µ–µ–µ
-- bmap block id: 3657
-- flags: 0000
-- background id: 10462
-- name:
----- HyperTalk script -----
on openCard
show card button "cover"
put "" into card field wish
put "" into card field smartAss
set the scroll of card field id 25 to 0
end openCard
on closeCard
show card button "cover"
put "" into card field wish
put "" into card field smartAss
end closeCard
-- part 1 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=3 top=317 right=339 bottom=226
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: show all object buttons in stack
----- HyperTalk script -----
on mouseUp
if the userLevel<3 then
beep
answer "You must set a higher userLevel first." with "OK"
exit mouseUp
end if
show msg
set the lockScreen to true
put the number of cards into numCards
repeat with cardCount = 5 to numCards
put cardCount into msg
go to card cardCount
put the number of card buttons into numButtons
repeat with butNum = 1 to numButtons
show card button butNum
end repeat
end repeat
go to card id 10613
end mouseUp
-- part 4 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=478 top=306 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: knife
----- HyperTalk script -----
on mouseUp
end mouseUp
-- part 5 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=445 top=271 right=307 bottom=479
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: nodule
----- HyperTalk script -----
on mouseUp
end mouseUp
-- part 6 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=478 top=271 right=307 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 14953 / 14953
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ladder
----- HyperTalk script -----
on mouseUp
end mouseUp
-- part 7 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=478 top=236 right=272 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 1019 / 1019
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bomb
----- HyperTalk script -----
on mouseUp
end mouseUp
-- part 8 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=445 top=236 right=272 bottom=479
-- title width / last selected line: 0
-- icon id / first selected line: 24317 / 24317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: key
----- HyperTalk script -----
on mouseUp
end mouseUp
-- part 9 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=478 top=201 right=237 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 7012 / 7012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: gem
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a glowing gem" into field 3
put false into examFlag
end mouseUp
-- part 10 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=445 top=201 right=237 bottom=479
-- title width / last selected line: 0
-- icon id / first selected line: 23078 / 23078
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: orb
----- HyperTalk script -----
on mouseUp
end mouseUp
-- part 11 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=27 top=60 right=83 bottom=273
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: I wish to win the game.
----- HyperTalk script -----
on mouseUp
answer "Congratulations! You have Won The Game!" with "OK"
end mouseUp
-- part 12 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=27 top=85 right=108 bottom=273
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: I wish to know the stack password.
----- HyperTalk script -----
on mouseUp
hide card button "cover"
end mouseUp
-- part 13 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=27 top=110 right=133 bottom=273
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: I wish to return to the game.
----- HyperTalk script -----
on mouseUp
global cardID
go to card id cardID
end mouseUp
-- part 14 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=28 top=135 right=158 bottom=274
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: other...
----- HyperTalk script -----
on mouseUp
put "" into card field wish
put "" into card field smartAss
ask "What is your wish?" with "I wish for: "
put it into card field wish
put "Well, OK, but this will probably take a few weeks." into card field smartAss
end mouseUp
-- part 24 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=3 top=214 right=238 bottom=240
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: edit the doMenu trap (see below)
----- HyperTalk script -----
on mouseUp
set userLevel to 5
edit script of this stack
end mouseUp
-- part 15 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=330 top=20 right=70 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: wish
-- part 16 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=330 top=72 right=122 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: smartAss
-- part 17 (button)
-- low flags: 80
-- high flags: 8001
-- rect: left=200 top=190 right=208 bottom=251
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PRINITA
-- part 18 (button)
-- low flags: 80
-- high flags: 0001
-- rect: left=237 top=190 right=208 bottom=252
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
-- part 25 (field)
-- low flags: 01
-- high flags: 2007
-- rect: left=3 top=241 right=313 bottom=414
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
-- part 19 (button)
-- low flags: 80
-- high flags: 0001
-- rect: left=162 top=191 right=208 bottom=174
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
-- part 22 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=0 top=175 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: cover
-- part 23 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=363 top=135 right=163 bottom=457
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
answer "Do you really want to quit the game?" with "yes"or"no"
if it="no" then exit mouseUp
send quitGame to card id 10613
end mouseUp
-- part contents for card part 25
----- text -----
How to remove the protection from this stack:
NOTE -- Please do not distribute unprotected stacks!
1) Display the menu bar by pressing Command-SpaceBar.
Hold down the Command Key and select "Protect Stack..."
from under the file menu.
2) Enter the stack password and set the user level limit to
allow Scripting.
3) Click on the "edit the doMenu trap" button above and edit
the stack script to "comment out" the doMenu handler.
To reactivate the stack protection, reinstate the doMenu handler and choose "Protect Stack..." to set the user level limit to Browsing.